home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 06.ki (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  847b  |  31 lines
  1. 10 rem ********************************
  2. 11 rem *   schueler - simulation      *
  3. 12 rem * <c> 1986 bei michael nickles *
  4. 13 rem ********************************
  5. 100 print"[147][158]schueler-simulation[146]"
  6. 110 input"zufallsanteil";zu
  7. 120 ifzu<0orzu>100then110
  8. 130 print"logiganteil  :"100-zu"%"
  9. 140 print"zufallsanteil:"zu"%"
  10. 150 print"bitte eine taste druecken!":poke198,0:wait198,1
  11. 1000 rem aufgabe stellen -------------------------------------------------------
  12. 1001 :
  13. 1010 a=int(10*rnd(1))+1
  14. 1020 b=int(10*rnd(1))+1
  15. 1030 print"wieviel ist"a"*"b"?   ";
  16. 2000 rem antwort des schuelers -------------------------------------------------
  17. 2001 :
  18. 2010 x=int(100*rnd(1))+1
  19. 2020 ifx>zu then2100:rem logische antwort
  20. 2030 ifx<=zuthen2200:rem zufallsantwort
  21. 2100 rem richtige antwort ----------
  22. 2101 :
  23. 2110 c=a*b
  24. 2120 printc
  25. 2130 poke198,0:wait198,1:goto1000
  26. 2200 rem zufallsantwort ------------
  27. 2201 :
  28. 2210 c=int(100*rnd(1))+1
  29. 2220 printc
  30. 2230 poke198,0:wait198,1:goto1000
  31.